function [result] = read7(input,dim1,dim2,dim3,dim4,dim5,dim6,dim7)

    result(dim1,dim2,dim3,dim4,dim5,dim6,dim7)=0.0;
    a=dim7*dim6*dim5*dim4*dim3*dim2;
    b=dim7*dim6*dim5*dim4*dim3;
    c=dim7*dim6*dim5*dim4;
    d=dim7*dim6*dim5;
    e=dim7*dim6;
    f=dim7;
    for h=1:dim1
        for i=1:dim2
            for j=1:dim3
                for k=1:dim4
                    for m=1:dim5
                        for n=1:dim6
                            for o=1:dim7
                                result(h,i,j,k,m,n,o)=input(a*(h-1)+b*(i-1)+c*(j-1)+d*(k-1)+e*(m-1)+f*(n-1)+o);
                            end
                        end
                    end
                end
            end
        end
    end

end